(internal-set-face-1): When calling x-list-fonts, ask for just one match.

diff --git a/lisp/faces.el b/lisp/faces.el
index 8c199fcfb70f25ccafbbed5b7f443accec0a0f85..02de29f02b4fe26c6bb53c9b99b185bcb075bad4 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -675,7 +675,7 @@ also the same size as FACE on FRAME, or fail."
        (setq frame nil))
   (if pattern
       ;; Note that x-list-fonts has code to handle a face with nil as its font.
-      (let ((fonts (x-list-fonts pattern face frame)))
+      (let ((fonts (x-list-fonts pattern face frame 1)))
        (or fonts
            (if face
                (if (string-match "\\*" pattern)